home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Resources / System / BoingBag1 / Workbench / Christmas-Look next >
AmigaDOS Script File  |  1999-12-21  |  1KB  |  40 lines
  1. .KEY KEEPDRAWERS/S,SAVE/S,NOREQ/S
  2.  
  3. .BRA {
  4. .KET }
  5.  
  6. Copy SYS:Prefs/Presets/Christmas/#?.prefs ENV:Sys CLONE QUIET
  7.  
  8. Rx "ADDRESS WORKBENCH; WINDOW '""SYS:Prefs/Presets/Animated GIFs/""' OPEN"
  9. Rx "ADDRESS WORKBENCH; ICON WINDOW '""SYS:Prefs/Presets/Animated GIFs/""' 'bell' '""christmas tree""' '""santa claus 1""' OPEN"
  10.  
  11. IF "{KEEPDRAWERS}" EQ ""
  12.     Rx S:CloseAllDrawers.rexx
  13. ENDIF
  14.  
  15. set choice 0
  16. IF "{SAVE}" EQ ""
  17.     IF "{NOREQ}" EQ ""
  18.         set Title "Christmas Look"
  19.         set Body "Do you want to save this christmas look?*NYou're old prefs files are copied to*NSYS:Prefs/Presets/Standard" 
  20.         set Gadgets "Save|Cancel"
  21.         IF "$Language" EQ "deutsch"
  22.             set Title "Es weihnachtet sehr"
  23.             set Body "Wollen Sie den Weihnachtsstil speichern?*NIhre alten Voreinstellungen werden nach*NSYS:Prefs/Presets/Standard kopiert."
  24.             set Gadgets "Sichern|Abbrechen"
  25.         ENDIF
  26.         set choice `RequestChoice TITLE "$Title" BODY "$Body" GADGETS "$Gadgets"`
  27.     ENDIF
  28. ELSE
  29.     set choice 1
  30. ENDIF
  31.  
  32. IF "$choice" EQ "1"
  33.     IF NOT EXISTS SYS:Prefs/Presets/Standard
  34.         Makedir SYS:Prefs/Presets/Standard
  35.     ENDIF
  36.     Copy ENVARC:Sys/#?.prefs to SYS:Prefs/Presets/Standard CLONE QUIET
  37.     Copy SYS:Prefs/Presets/Christmas#?.prefs ENVARC:Sys CLONE QUIET
  38.     Copy "SYS:Prefs/Presets/Animated GIFs/(bell|bell.info|christmas tree|christmas tree.info|santa claus 1|santa claus 1.info)" TO SYS:WBStartup CLONE QUIET
  39. ENDIF
  40.